Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00308_Hide Sprite Class.ls

Text File | 1997-07-10 | 626 b | 33 lines

property hideSpriteList, turnedOn

on new me, parameterList
  set hideSpriteList to getaProp(parameterList, #hideSpriteList)
  set turnedOn to 0
  return me
end

on TurnOn me
  repeat with sNum in hideSpriteList
    set the visible of sprite sNum to 0
  end repeat
  updateStage()
  set turnedOn to 1
end

on TurnOff me
  if turnedOn then
    repeat with sNum in hideSpriteList
      set the visible of sprite sNum to 1
    end repeat
    set turnedOn to 0
  end if
end

on dispose me
  repeat with sNum in hideSpriteList
    set the visible of sprite sNum to 1
  end repeat
  set hideSpriteList to []
  set turnedOn to 0
end